home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / ladybug.arc / SOUNDS.BUG < prev    next >
Encoding:
Text File  |  1984-01-18  |  1.9 KB  |  85 lines
  1. make "description [Examples of the PLAY statement]
  2.  
  3. to "ship1
  4. play "'L64 T255'
  5. repeat 10 [PLAY "'N40 N42 N44 N46 N48 N50 N48 N46 N44 N42 N40']
  6. end
  7.  
  8. to "ship2
  9. play "'L64 T255'
  10. repeat 10 [play "'N50 N52 N54 N56 N58 N60 N58 N56 N54 N52 N50']
  11. end
  12.  
  13. to "ship3
  14. play "'L64 T255'
  15. repeat 10 [play "'N50 N60 N51 N61 N52 N62 N53 N63 N54 N64 N55 N65 N56 N66']
  16. end
  17.  
  18. to "clicks
  19. play "'L64 MB MS T255'
  20. repeat 40 [play "'N1 P64 N2 P64']
  21. end
  22.  
  23. to "clock :tics
  24. play "'L50 MB MS T255'
  25. repeat :tics [play "'N1 P1 N2 P1']
  26. end
  27.  
  28. to "bird1
  29. play "'L64 MB ML T255 O4'
  30. play "'N64 N66 N68 N70 P64'
  31. play "'N66 N68 N70 N72 N74 N76 N78 P64'
  32. play "'N66 N68 N70 N72 P64'
  33. play "'N64 N66 N68 N70 P64'
  34. play "'N70 N72 N74 N76 N78 N80 P64'
  35. play "'N66 N68 N70 N72 P64'
  36. play "'N70 N72 N74 N76 N78 N80 P64'
  37. play "'N66 N68 N70 N72 P64'
  38. end
  39.  
  40. to "bird2
  41. play "'L64 MB ML T255 O4'
  42. play "'N64 N66 N68 N70 P64'
  43. play "'N66 N68 N70 N72 N74 N76 N78 P64'
  44. play "'N64 N66 N68 N70 P64'
  45. play "'N70 N72 N74 N76 N78 N80 P64'
  46. play "'N64 N66 N68 N70 P64'
  47. play "'N66 N68 N70 N72 N74 N76 N78 P64'
  48. play "'N64 N66 N68 N70 P64'
  49. play "'N70 N72 N74 N76 N78 N80 P64'
  50. play "'N66 N70 N66 N70 N66 N70 N74 N74'
  51. play "'N66 N70 N66 N70 N66 N70 N74 N74'
  52. play "'N66 N70 N66 N70 N66 N70 N74 N74'
  53. play "'N66 N70 N66 N70 N66 N70 N74 N74'
  54. end
  55.  
  56. to "bird3
  57. play "'L50 MB ML T255 O5'
  58. play "'f#g f#g P64 f#g f#g P64 '
  59. play "'f#g f#g P64 f#g f#g P64 '
  60. play "'aa#b a# aa#b a#a'
  61. play "'P32 bbbbbb P64'
  62. play "'f#g P64 f#g P64 f#g P64 f#g P64 f#g'
  63. end
  64.  
  65. to "bird4
  66. play "'L64 MB ML T255 O4'
  67. play "'g+g+a g+g+a g+g+a g+g+a'
  68. play "'g+g+a g+g+a g+g+a g+g+a P32'
  69. play "'b-b-b b-b-b b-b-b'
  70. play "'b-b-b b-b-b b-b-b P32'
  71. play "'a+a+a a+a a+ aa a- g+ g+g g-g'
  72. play "'f+f+ ff f+ ff f+ f P64'
  73. end
  74.  
  75. to "birds
  76. make "which integer random * 4
  77. print :which
  78. if :which = 0 then bird1
  79. if :which = 1 then bird2
  80. if :which = 2 then bird3
  81. if :which = 3 then bird4
  82. repeat integer random * 10 [play "p1]
  83. birds
  84. end
  85.